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/* BitStringS & 16 based on Bh.String from U05 */ 
synrype Cgronp = Integer constants 0:3 endsyntype; 
syntype Cond = Integer constants (h31 endsyntype; 
syntype CtxNam = Integer constants 0:7 endsyntype; 
syntype EventNtnn = Integer constants 0:7 endsyntype ; 
syntype InstAddr = Integer constants 0:65535 endsyntype; 
syntype Instruction = BitStringl6 endsyntype ; 
syntype OfXset = Integer constants -128:127 endsyntype; 
syntype Vbase = Integer constants 011023 endsyntype; 

/* Exported from Context.ControIler */ 
remote asleep, csw, idle Boolean nodelay ; 
remote context CtxNom nodelay ; /* ronning context */ 
remote events BitStringS nodelay ; /* C-gronp 01 */ 
remote nctx CtxNtun nodelay ; /* next context */ 
remote mask BUS (ringS nodelay ; /* Event Mask reg */ 

/* Exported from Data_Path_and Jnterface_Resonrces */ 
remote slice Natural nodelay ; /* inst cycles per bg slice */ 
remote ten Boolean nodelay ; /* true for execute cycles */ 



signal 

AckEv(CtxNnm3ventNnm), 
AckInst(EventNnm) f 
BcInst(Cond,0flset), ClearCy(CteNam), 
ClearEG, CSaddrflnstAddr), 
CSdata(Instniction), Cs£oad(CtxNnm), 
C$Store(CtxNnm), 
Event(CtxNonuEventNiim), 
ExtEvent(CtxNnm^EventNnm), HfOsc, 
HwReset, Initlnst(CtxNinn), 
InifSeq(CrxNtnn), UOsc, 
LoadMask(BitStringS) 9 Mr, Mf, 
Qr, Qf, Reset, SetCy(CtxNum), 
SetfG, Signannst(CtxNnsvSventNnm), 
SkpInst(Cgronp3itString8)» Sleep, 
Vednst(Vbase), Wait, Wake ; 
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DataJPath_and_Interface_Resoiirces 

/* ALU, condition codes, central registers, 
control registers, Hie registers, software 
flags, memory bus (data store) interface, 
serial & parallel ports, timers, coprocessor 
interface, I/O bus (host) interface, etc */ 
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signal EndMark, ResetMark i 
signalset EndMark, ExtEvent, 
Mr, Reset, ResetMark ; 

del c# CtxXum ; 
dcle# EvenfNnm ; 



/* This process synchronizes events originating 
ontside of the DISC core to the leading edge o 
Mr. The assertion of each external event is 
indicated By an ExtEvent signal. The parameters 
of the signal provide the target context and event 
numbers* 



ExtEvent signals are saved in the process 1 input 
queue until receipt of signal Mr from the 
Clock_Generator Mock. The end of the input 
queue is marked and all ExtEvent signals queued 
ahead of the EndMark are copied to Event signals 
and sent to the Event_Prxorxtizer process, where 
they are handled at the next 2tfr. */ 
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/* Ibis process handles signals that alter event state, 
contest activation state, or execution state (sleep, idle). 

While Running, events, Signal Instructions, and loading the 
Event Mask are handled at once; while Ack, Ink, Sleep, 
Wait, and Set/Clear FG are held on the process input queue 
until Mr. At Mr of execute (ien=l) cycles, any queued 
instruction (max-l/cyde) is processed, the context number, 
event flags (C -group 1) and event mask values are updated 
to reflect a possible context switch, and the slice count is 
decremented if the running context is in background* At 
Qr the activity flags are updated, then the highest priority 
active (fg) context, or current/next (bg) context is selected 
for execution at the next Mr, performing a context switch 
or going idle, starting at M£ as appropriate. */ 
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act t= 0x80, 
ctx:=7, 
fgs=0xFF, 



events := 0x00, 
waited := 0x00, 
mask := 0x00, 



cnrBg t= 0, 
sliceCount := 
bnport(slice) 




InitSeq(7) 



CIearCy(7) 



export 
asleep, csw, 
ctx, events, 




CsLoad(7) 
via PriSeq 
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asleep t= false, 
csw false, 
idle t= false 



evMask(04^, 

3,44,6*7) 

2=0x00, 
evStatnsOM^, 

3,4^,6,7) 

:=0xQ0 



del act BitStringS; 
dclc#,cnrBg CtxNum ; 
del e# EventNnm; 
del evMask, evStatus 

Array(CtxNum, BitString8) ; 
ddfg BitStringS; 
ddlclfprev CtxNum; 
del sliceCount Natural ; 
ddval BitString8; 
dd waited BitStringS; 



signal ResetMark ; N 



t 

Acklnst, ClearEG, 
Event, Initlnst, 
LoadMask, 
Mr, Mt Qr, Reset, 
ResetMark, SetEG, 
SignalTust, Sleep, 
Wait* Wake; 
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imported ien Boolean ; 
imported slice Natural; 



dd exported asleep, csw, idle Boolean; 
dd exported ctx as context CtxNum; 
dd exported events, mask BitStringS; 
dd exported nets CtxNum ; 
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